home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ivbsrc / formcopy.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  2.1 KB  |  78 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Test File Copy Function"
  4.    ClientHeight    =   2880
  5.    ClientLeft      =   1545
  6.    ClientTop       =   1830
  7.    ClientWidth     =   4065
  8.    Height          =   3285
  9.    Left            =   1485
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2880
  13.    ScaleWidth      =   4065
  14.    Top             =   1485
  15.    Width           =   4185
  16.    Begin TextBox Text3 
  17.       Height          =   495
  18.       Left            =   1320
  19.       TabIndex        =   5
  20.       Top             =   2280
  21.       Width           =   975
  22.    End
  23.    Begin CommandButton Command1 
  24.       Caption         =   "Copy File"
  25.       Height          =   375
  26.       Left            =   1320
  27.       TabIndex        =   4
  28.       Top             =   1680
  29.       Width           =   1215
  30.    End
  31.    Begin TextBox Text2 
  32.       Height          =   495
  33.       Left            =   1320
  34.       TabIndex        =   1
  35.       Top             =   960
  36.       Width           =   2535
  37.    End
  38.    Begin TextBox Text1 
  39.       Height          =   495
  40.       Left            =   1320
  41.       TabIndex        =   0
  42.       Top             =   240
  43.       Width           =   2535
  44.    End
  45.    Begin Label Label3 
  46.       Caption         =   "Result Code:"
  47.       Height          =   375
  48.       Left            =   480
  49.       TabIndex        =   6
  50.       Top             =   2280
  51.       Width           =   615
  52.    End
  53.    Begin Label Label2 
  54.       Caption         =   "Destination:"
  55.       Height          =   255
  56.       Left            =   120
  57.       TabIndex        =   3
  58.       Top             =   960
  59.       Width           =   1095
  60.    End
  61.    Begin Label Label1 
  62.       Caption         =   "Source:"
  63.       Height          =   255
  64.       Left            =   120
  65.       TabIndex        =   2
  66.       Top             =   240
  67.       Width           =   975
  68.    End
  69. Sub Command1_Click ()
  70.   InFile$ = Text1.Text
  71.   OutFile$ = Text2.Text
  72.   Result% = CopyFile(InFile$, OutFile$)
  73.   Text3.Text = Str$(Result%)
  74. End Sub
  75. Sub Form_Click ()
  76.   End
  77. End Sub
  78.